home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / libs / libelf-0.5 / libelf-0 / libelf-0.5.2 / getscn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-10-19  |  1.3 KB  |  45 lines
  1. /*
  2. getscn.c - implementation of the elf_getscn(3) function.
  3. Copyright (C) 1995 Michael Riepe <riepe@ifwsn4.ifw.uni-hannover.de>
  4.  
  5. This library is free software; you can redistribute it and/or
  6. modify it under the terms of the GNU Library General Public
  7. License as published by the Free Software Foundation; either
  8. version 2 of the License, or (at your option) any later version.
  9.  
  10. This library is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13. Library General Public License for more details.
  14.  
  15. You should have received a copy of the GNU Library General Public
  16. License along with this library; if not, write to the Free Software
  17. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  18. */
  19.  
  20. #include <private.h>
  21.  
  22. Elf_Scn*
  23. elf_getscn(Elf *elf, size_t index) {
  24.     Elf_Scn *scn;
  25.  
  26.     if (!elf) {
  27.     return NULL;
  28.     }
  29.     elf_assert(elf->e_magic == ELF_MAGIC);
  30.     if (elf->e_kind != ELF_K_ELF) {
  31.     seterr(ERROR_NOTELF);
  32.     }
  33.     else if (elf->e_ehdr || _elf_cook(elf)) {
  34.     for (scn = elf->e_scn_1; scn; scn = scn->s_link) {
  35.         elf_assert(scn->s_magic == SCN_MAGIC);
  36.         elf_assert(scn->s_elf == elf);
  37.         if (scn->s_index == index) {
  38.         return scn;
  39.         }
  40.     }
  41.     seterr(ERROR_NOSUCHSCN);
  42.     }
  43.     return NULL;
  44. }
  45.